home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / mx.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.1 KB  |  33 lines
  1. if (!defined &_MX) {
  2.     eval 'sub _MX {1;}';
  3.     if (!defined &_XLIB_H_) {
  4.     require 'X11/Xlib.ph';
  5.     }
  6.     require 'stdio.ph';
  7.     eval 'sub MX_POS_EQUAL {
  8.         local($a, $b) = @_;
  9.         eval "((($a). &lineIndex == ($b). &lineIndex) && (($a). &charIndex == ($b). &charIndex))";
  10.     }';
  11.     eval 'sub MX_POS_LESS {
  12.         local($a, $b) = @_;
  13.         eval "((($a). &lineIndex < ($b). &lineIndex) || ((($a). &lineIndex == ($b). &lineIndex) && (($a). &charIndex < ($b). &charIndex)))";
  14.     }';
  15.     eval 'sub MX_POS_LEQ {
  16.         local($a, $b) = @_;
  17.         eval "((($a). &lineIndex < ($b). &lineIndex) || ((($a). &lineIndex == ($b). &lineIndex) && (($a). &charIndex <= ($b). &charIndex)))";
  18.     }';
  19.     eval 'sub MX_UNDO {1;}';
  20.     eval 'sub MX_DELETE {2;}';
  21.     eval 'sub MX_NO_TITLE {8;}';
  22.     eval 'sub TX_NO_TITLE {1;}';
  23.     eval 'sub MX_BEFORE {1;}';
  24.     eval 'sub MX_AFTER {2;}';
  25.     eval 'sub MX_REVERSE {1;}';
  26.     eval 'sub MX_GRAY {2;}';
  27.     eval 'sub MX_UNDERLINE {3;}';
  28.     eval 'sub MX_BOX {4;}';
  29.     eval 'sub UNDO_ID_LENGTH {60;}';
  30.     eval 'sub UNDO_NAME_LENGTH {600;}';
  31. }
  32. 1;
  33.